100 '=======FINDISK-II: 48K NEWDOS 80 VERSION 2.5  <C> 1980=====
120 CLEAR17600:DIMA$(730),V$(45):E=730:'48K
200 PRINT"    <C> 1980 DOCUMAN SOFTWARE: REPRODUCTION PROHIBITED":PRINTP2$
310 ND$="DIR :"+RIGHT$(STR$(ND),1)
315 CMD ND$
330 X=15371: N$=""
350 IFX<15416 THEN 340
355 T2$=MID$(N$,11,8):T3$=MID$(N$,22,2):T4$=MID$(N$,32,2):T5$=MID$(N$,43,2)
430 '
470 DN$=LEFT$(N$,O7):T1$="":S$=""
480 CLS:IFLEFT$(N$,3)="TRS"ORLEFT$(N$,3)="NEW"ORLEFT$(N$,3)="VTO"ORVAL(LEFT$(N$,O7))=0THENGOSUB770
485 IFLEN(DN$)<O7THENDN$=DN$+STRING$(O7-LEN(DN$)," ")
487 IFO9$="Y"ANDINSTR(K1$,DN$)<>0ORINSTR(K2$,DN$)<>0ORINSTR(K3$,DN$)<>0THENGOSUB2940
510 LPRINTDN$;CHR$(02);CHR$(30);TAB(9)T1$+S$;TAB(21)T3$;"T";TAB(25)T2$;TAB(34)"DIR: ";DT$:LPRINTP4$
580 A$(N2)=V$(N)+DN$:GOTO640
600 A$(N2)=V$(N)+DN$:N2=N2+1
610 IFV$(N+1)=""THEN 660 ELSE A$(N2)=V$(N+1)+DN$:N2=N2+1
620 IFV$(N+2)=""THEN 660 ELSE A$(N2)=V$(N+2)+DN$:N2=N2+1
670 IFO4=1THENLPRINT:LPRINT"( ) FREE DISK SPACE: ";T4$;" FILES, ";T5$;" GRANS (";VAL(T5$)*1.25;"K)"
690 IFO1=6THENUN$=UN$+" "+DN$
720 CLS:PRINT:PRINT:PRINT"   SIDE: ";DN;" ";DN$;"  COMPLETED": DN=DN+1
770 CLS:T1$=LEFT$(N$,3):PRINT:PRINT"		   DISK NAME IS : ";DN$
810 IF NA$="" THEN RETURN ELSE DN$=NA$:NA$="":RETURN

2750 '
2760 '
2770 '
2780 '
2790 '
2800 '
2810 '
2820 '
3120 S$="DOS<SYS>":GOTO3140
